home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 84xx / 8411.d64 / list 4+5+6+7 (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  2KB  |  61 lines
  1. 10 REM ********************************
  2. 11 REM *         E  R  R  O  R        *
  3. 12 REM ********************************
  4. 13 REM * ERGAENZUNG ZU SIMON'S BASIC  *
  5. 14 REM * FORMAT: d~OR                *
  6. 15 REM * GIBT drSTATUS AUS          *
  7. 16 REM * > BEISPIEL: d~OR            *
  8. 17 REM *   ERGEBNIS: 00, OK,00,00     *
  9. 18 REM ********************************
  10. 19 K=0:PRINT" E R R O R [146]  ?CHECKSUM ";
  11. 20 FORI=$BFBB TO $BFE2:READ J:POKE I,J:K=K+J:NEXT
  12. 21 DATA32,115,,201,176,240,3,76,138,136
  13. 22 DATA169,8,133,186,32,180,255,169,111
  14. 23 DATA133,185,32,150,255,32,165,255,32
  15. 24 DATA210,255,201,13,208,246,32,171
  16. 25 DATA255,76,116,145
  17. 26 POKE$87BE,186:POKE$87BF,191
  18. 27 IFK=5527THENPRINT"OK":dG:PRINT"ERROR"
  19. 30 REM *******************************T
  20. 31 REM *           J  O  Y            *
  21. 32 REM ********************************
  22. 33 REM * ERGAENZUNG ZU SIMON'S BASIC  *
  23. 34 REM * FORMAT: dQ N                *
  24. 35 REM * STELLT dQSTICKPORT EIN      *
  25. 36 REM * > BEISPIEL: dQ1 (FUER PORT1)*
  26. 37 REM *             dQ2 (FUER PORT2)*
  27. 38 REM ********************************
  28. 39 K=0:PRINT" J O Y [146]      ?CHECKSUM ";
  29. 40 FORI=$BFE3 TO $BFF1:READ J:POKE I,J:K=K+J:NEXT
  30. 41 DATA32,115,,32,6,129,138,41,1,141
  31. 42 DATA213,136,76,42,130
  32. 43 POKE$88DA,111:POKE$88FC,16
  33. 44 POKE$8764,226:POKE$8765,191
  34. 45 IFK=1232THENPRINT"OK":dG:PRINT"ERROR"
  35. 50 REM ********************************
  36. 51 REM *          D  U  M  P          *
  37. 52 REM ********************************
  38. 53 REM * BERICHTIGUNG DES             *
  39. 54 REM * SIMON'S BASIC-BEFEHLS dL   *
  40. 55 REM ********************************
  41. 59 K=0:PRINT" D U M P [146]    ?CHECKSUM ";
  42. 60 FOR I=$9F9C TO $9FA7:READ J:POKE I,J:K=K+J:NEXT
  43. 61 DATA 160,4,32,57,160,136,208,250,234
  44. 62 DATA 234,234,234:POKE $80B9,221:POKE $808C,68
  45. 63 POKE $9FD6,240:POKE $9FD7,27:POKE $9FD8,200
  46. 64 FOR I=$9FF0 TO $9FFC:READ J:POKE I,J:K=K+J:NEXT
  47. 65 DATA 160,4,44,160,5,169,34,32,210,255,76,158,159
  48. 66 IFK=3409THENPRINT"OK":dG:PRINT"ERRO[164]
  49. 70 [143] ********************************
  50. 71 [143] *          P  A  G  E          *
  51. 72 [143] ********************************
  52. 73 [143] * BERICHTIGUNG DES             *
  53. 74 [143] * SIMON'S BASIC-BEFEHLS dK   *
  54. 75 [143] ********************************
  55. 79 K[178]0:[153]" P A G E WAIT    ?CHECKSUM ";
  56. 80 [129] I[178]$BFF2 [164] $BFFE:[135] J:[151] I,J:K[178]K[170]J:[130]
  57. 81 [131] 32,225,255,208,5,104,104,76,60
  58. 82 [131] 191,76,228,255
  59. 83 [151] $BF12,242:[151] $BF13,191
  60. 84 [139]K[178]1819[167][153]"OK":dG:[153]"ERROR
  61.